ДЕРЖАВНИЙ ВИЩИЙ НАВЧАЛЬНИЙ ЗАКЛАД “УЖГОРОДСЬКИЙ НАЦІОНАЛЬНИЙ УНІВЕРСИТЕТ” Факультет інформаційних технологій Лабораторна робота №14  Лабораторна робота №14. Тема: Робота з файлами. Мета: Вивчення процедур та функцій для організації роботи з даними файлового типу. Вивчити питання: Поняття файлу і файлової змінної. Текстові файли. Типізовані файли. Нетипізовані файли. Завдання до роботи: Скласти програми на мові Pascal для розв'язування задач за індивідуальним завданням. Оформити звіт про виконання роботи та завантажити його в системі електронного навчання ДВНЗ «УжНУ» в установлений термін. Варіант 3 1. Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7. 2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл. ХІД РОБОТИ 1.Файл f заповнити 300 випадковими цілими числами. Записати у файл g усі компоненти файлу f, які є діляться на 3 і не діляться на 7. var f,g:file of integer; i,j:integer; begin randomize; i:=300; assign(f,'int.dat'); rewrite(f); for i:=1 to i do begin j:=random(1000);write(f,j);end; close(f); reset(f); assign(g,'out_int.dat'); rewrite(g); writeln('File1:'); while not eof(f) do begin read(f,i); write(i,' '); if (i mod 3=0) and (i mod 7<>0) then write(g,i); end; writeln; close(f); close(g); reset(g); writeln('File2:'); while not eof(g) do begin read(g,i); write(i,' '); end; close(g); end. / 2. Кожен рядок текстового файлу f містить назву фірми, назву товару та ціну в євро. Перерахувати ціни у гривні за поточним курсом та дописати до рядків отримані значення. Результати записати у новий текстовий файл. var f,g:text; s:string; c,k:real; i:integer; begin assign(f,'1.txt'); reset(f); assign(g,'2.txt'); rewrite(g); writeln('kyrs='); readln(k); while not eof(f) do begin readln(f,s); write(g,s); while pos(' ',s)>0 do delete(s,1,pos(' ',s)); val(s,c,i); c:=c*k; writeln(g,' ',c:0:2); end; close(f); close(g); write('Prite write in 2.txt'); readln; end. / / ВИСНОВОК За допомогою даної лабораторної роботи я вивчила процедури та функцій для організації роботи з даними файлового типу.